Notes/Domino 6 and 7 Forum : AppendDocLink composing and editing a document by lotusscript?

what about replacing the Formula Language:

@Command([FileCloseWindow]);
@PostedCommand([Compose];"Bookmark")

with lotusscript:

'*** Declarations
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Dim bookmark As NotesDocument
Dim rtitem As Notesrichtextitem

'*** Current document
Set db = session.CurrentDatabase
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
Call uidoc.Close(True)

'***Create the bookmark document
Set bookmark = New NotesDocument( db )
'***add a doclink to the bookmark - DOES NOT WORK !!! ***
'***create a new rich text Body field on the document - tried differnet solutions ???
Set rtitem = bookmark.CreateRichTextItem("Body")
Call rtitem.AppendDocLink( doc, InheritedDbTitle ) 'place a doclink in the Body field

'add content to the bookmark
bookmark.Form = "Bookmark"
bookmark.Subject = "Verknüpfungsnachricht: " & doc.Subject(0)
bookmark.InheritedDBTitle = db.Title
bookmark.InheritedSubject = doc.Subject(0)
'bookmark.FlowStatus = "Please review the following document"
bookmark.~_ViewIcon = 11 'view icons appear in the Inbox, 1-175
bookmark.CopyTo = ""
bookmark.BlindCopyTo = session.Username 'blind carbon copy the current user
bookmark.SendTo=""
Call bookmark.MakeResponse(doc)
Call ws.EditDocument(True, bookmark)

Any idea?
Your help will be much appreciated